RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 
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16-Sep-1984 01:31: VAX-11 Bliss-32 V4.0-742 1 
1a-Sep- 1382 04:34:86 DISKSVMSMASTER: CRUNOFF ..SRCIRCS.BLI;1 eee (1) 


MODULE RCS ( 
IDENT = 'V04-000' 
ZBLISS32C 


ADDRESSING ~MODE (EXTERNAL=LONG_RELATIVE ,NONEXTERNAL=LONG_RELATIVE) 
de 


vv 


BEGIN 


RRR RARER ERE EERE ERE RRA EERE EEE RETREAT EERE RARER 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
' DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


ie THIS i ietie IS FURNISHED UNDER A LICENSE AND MAY BE USED AND gd 
!* ONLY IN ACCORDANCE tM THE TERMS OF SUCH bic cee ~ WITH THE 


SOFTWARE OR OTH 
; THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
_ Fannsechatee” NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


is THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
» CORPORATION NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


is DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


eaeeneneneneeneeeaenennnenannnen 
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' 


i¢¢ 
FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 

ABSTRACT: Recognizes a string of keywords that identifies a command. 
i 

; ENVIRONMENT: Transportable 

| AUTHOR: R.W.Friday CREATION DATE: May, 1978 
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Revision History 
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13 
1-30-1984 93:07:88 DTSkSvmnaSteRsCRUNOFF “SRcIRCS.eLI;1 3% «25 
SBTTL ‘Revision History’ 
MODIFIED BY: 
002 KAD00002 Keith Dawson 07-Mar-1983 


Global edit of all modules. Updated module names, idents, 
copyright dates. Changed require files to BLISS library. 
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cc 


SOOCOCOOSSOSOOCSOSOSOSOSCOCSOOOOOCOOOOOOOOOOOOOOOOO 


Module Level Declarations 
ZSBITL ‘Module Level Declarations’ 


i TABLE OF CONTENTS: 


13 
1b-Sep-1984 01:51:26 VAKCIT BL ies=52 


INCLUDE FILES: 


pofejeleleloeleololeolro) 


RARY ‘NXPORT:XPORT'; ' XPORT Library 
UIRE "REQ:RNODEF'; ' RUNOFF variant definitions 


DSRPLUS ZTHEN 
RARY ‘REQ:DPLLIB'; ! DSRPLUS BLISS Library 


RARY 'REQ:DSRLIB'; ! DSR BLISS Library 


—Or-on ow 
4) 
m 


EQUATED SYMBOLS: 
OWN STORAGE: 
EXTERNAL REFERENCES: 


EXTERNAL ROUTINE 
FIND 


GSLU, 
RSKIPS; 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
: 
1 EXTERNAL 

1 FSO1 : 
1 

1 

1 


vane ‘Common work area for misc. tasks. 


4.0-742 Page 3 
UNOFF .SRCIRCS.BLI;1 (3) 


DDRDPED Sra B BS BB WANNA RPNOPOPPPPNY 
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VAX=11 Bliss-32 V4.0-742 Page 
ISKSVMSMASTER: CRUNOF F SRCIRCS.BLI;1 


144 
! FUNCTIONAL DESCRIPTION: 
Beginning with LP1, RCS collects keywords in an attempt 
to recognize a command. If a command is recognized, the 
item descriptor is 
returned. If the command is not recognized, zero is returned. 
There is no capability for ‘‘partially” recognizing a command. 
FORMAL PARAMETERS: None 
IMPLICIT INPUTS: None 
IMPLICIT OUTPUTS: None 


ROUTINE VALUE: 
COMPLETION CODES: 


Either the item descriptor associated with the command, 
or zero if the command is not recognized. 


SIDE EFFECTS: None 


A 
u 3 REF VECTOR, 
result; 


= lpi; 
WHILE 1 DO 
B 


N 
fs_init (fs01); 
result = gslu lire. fs01); 


rome EQL gslu_none 
fs_wehar (fs01, %c'a'); 
result = find (.fs_start (fs01), .fs_length (fs01), .x); 
fy grout EQL 0 
iThis coding makes a jeaqetete for the user to omit keywords 


when there i no amb rf 
if CEHsREHAR ¢ -{33t pier tisbin» EQL %C'a") 


(.x C-1 
noe = .x (0) 'Trailing keyword is optional. 
RETURN 0; '‘In this case, it is ambiguous 
BEGIN 'Start local definition block 


13 
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yO2~-000 Module Level Declarations 12-80-1382 93:3 88 DISKSVMSMASTER: CRUNOFF. SRCIRCS.BLI;1 rea (63 


BIND 
item = result : REF VECTOR; 


IF_.kwitem_chain_continues (item) 
THEN 


BEGIN 
tp (ira); 


ekwitem_ next_ List (item); 
END 

ELSE 

RETURN .item : 

END ‘End local definition block 


END 
END; !End of RCS 
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O00 000900 000000000000 INI 
MOODS NAUNE WN OODONO 


eh ah te ee ee eh AL ee ee ee et 


TITLE RCS 
IDENT \V04-0C0\ 
FI 


— 


. ND, GSLU, ‘aaa 
-EXTRN FSO1, IRA, LP1 


-PSECT S$CODES,NOWRT,2 


40 8F 00 ee 
01 FC OA 

52 é 

0 

> 


CMPB @FSO1, #64 
CMPL ~4(X), #1 
MOVL ie RESULT 
3$: cLRL RO 

4$: BLBC SC ITEM), 5$ 


003¢ 00000 .ENTRY RCS, Save R2,R3,R4,R5 : 0219 
55 000000006 EF 9E 00002 MOVAB IRA : 
54 000000006 EF 9E 00009 MOVAB FSO1, R4 : 
53 000000006 EF 9E 00010 MOVAB LP1, X > 0251 
OC A& D4 00017 18: CLRL —s«FSO1+12 : 0255 
64 10 Ad i OO01A MOVAB FS01+16, FSO1 : 
04 Ad 64 D OO01E MOVL F501, FS0144 : 
54 DD 9002 PUSHL R4 + 0256 
55 DD 00024 PUSHL RS : 
000000006 EF 02 FB 00026 CALLS #2, GSLU ; 
52 50 00 9000 MOVL RO, RESULT ; 
02 52 D1 000 9 CMPL _—sRESULT, : 0258 
0B 12 9005 BNEG 2$ : 
04 B4 40 8F 90 00035 MOVB #64, aFS01+4 : 0260 
04 AG D6 O003A INCL  FSO1+4 ; 
0C A& D6 0003D INCL FS014#12 : 
53 DD 00040 28: PUSHL X > 0262 
0c A OD 00048 PUSHL Fsgiei2 : 
64 DBD 0004 PUSHL F501 : 
000000006 EE 3 F 90047 CALLS #3, FIND : 
2 0 DO 0004E MOVL RO. RESULT : 
12 00051 : 
91 00053 : 
12 00058 ; 
»} Hit Es ; 
5 0 3 
00 0006 F 
11 0006 3 
yi 006 3 
4 Bee 3 
E9 00068 : 


OF 09 A2 
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¥O2-000 Module Level Declarations 14-Sep- aa 7 9}: 3} 8 Disk aKSVMER TER: CRUNOFF. SRCIRCS.BLI;1 thee 
5 DD C PUSHL R5 : 3 
000000006 gf 33 Fe é CALLS #1, RSK “ 3 é 
x 04 A2 D MOVL  4(fTEM), : ; 
5 11 7 BRB 1$ F ; 
50 5 BO 0078 5$ MOVL ITEM, RO $ 3 
4 0007E RET ; : 


; Routine Size: 127 bytes, Routine Base: $CODE$ + 0000 


186 ae98 0 ELuvon a ons 
: PSECT SUMMARY 
; Name Bytes Attributes 
: SCODES 127 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
: Library Statistics 
ee Aa i ae ee S$yabo|§ sco~-<-- Pages Processing 
: File Total Loaded Percent Mapped Time 
; ~$255$DUA28:(S¥SL1BIXPORT 32:1 590 0 0 252 00:00. 
> 7$255$DUA28: CRUNOFF .SRCJDSRLIB.L32;1 1248 12 0 86 00:00. 
; COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /LIS=LIS$:RCS/OBJ=OBJ$:RCS MSRC$:RCS/UPDATE=(ENHS$:RCS) 
ny ae 127 soge + 0 data bytes 
Elapsed: Time: 80:09 0:09. 
Lines/CPU Min 


Lexenes/CPU-Rin: 13081 
pemee Used: 46 pages 
Compilation Complete 


ENT CORPORATION 
ND PROPRIETARY 


P 
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